home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_077 / samples / count.d < prev    next >
Text File  |  1992-05-06  |  419b  |  19 lines
  1. /*
  2.  * count to 1,000,000.
  3.  * on the 8080 this was a triple loop of ushorts counting to 100.
  4.  * On the 68000 a double loop of uints counting to 1000 should be fastest.
  5.  * On a 68020, a single loop counting to 1000000 should be best.
  6.  */
  7.  
  8. proc main()void:
  9.     uint i, j;
  10.  
  11.     write("Press RETURN to start: ");
  12.     readln();
  13.     for i from 1 upto 1000 do
  14.     for j from 1 upto 1000 do
  15.     od;
  16.     od;
  17.     writeln("Done");
  18. corp;
  19.